home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / CGraphX_DevKit.lha / CGraphX / Modula / txt / CyberGraphXL.def < prev   
Encoding:
Modula Definition  |  1995-12-17  |  4.5 KB  |  125 lines
  1. DEFINITION MODULE CyberGraphXL{"cybergraphics.library",40} ;
  2.  
  3. (*$ IMPLEMENTATION := FALSE *)
  4.  
  5. (*
  6. ** $VER: CyberGraphXL.def 1.0 (4.12.95)
  7. **
  8. ** conversion done by Olaf Peters <olf@informatik.uni-bremen.de>
  9. **
  10. ** NOTE:
  11. **
  12. ** These interfaces are completely untested, if you should discover bugs,
  13. ** please eMail me!
  14. **
  15. ** $HISTORY:
  16. **
  17. **  4.12.95  1.0   : initial
  18. **
  19. *)
  20.  
  21. FROM SYSTEM IMPORT BYTE, ADDRESS ;
  22.  
  23. IMPORT  ed : ExecD,
  24.         gd : GraphicsD,
  25.         ud : UtilityD,
  26.         R ;
  27.  
  28. (* --- functions in V40 or higher (Release 40.40) --- *)
  29.  
  30. PROCEDURE IsCyberModeID(displayID{R.D0} : LONGCARD) : BOOLEAN ; CODE -54 ;
  31.  
  32. PROCEDURE BestCModeID(bestModeIDTags{R.A0} : ud.TagItemPtr) : LONGCARD ; CODE -60 ;
  33.  
  34. PROCEDURE CModeRequest(modeRequest{R.A0}     : ADDRESS ;
  35.                        modeRequestTags{R.A1} : ud.TagItemPtr) : LONGCARD ; CODE -66 ;
  36.  
  37. PROCEDURE AllocCModeList(modeListTags{R.A1} : ud.TagItemPtr) : ed.ListPtr ; CODE -72 ;
  38.  
  39. PROCEDURE FreeCModeList(modeList{R.A0} : ed.ListPtr) ; CODE -78 ;
  40.  
  41. PROCEDURE ScalePixelArray(srcRect{R.A0}   : ADDRESS ;
  42.                           srcW{R.D0},
  43.                           srcH{R.D1},
  44.                           srcMod{R.D2}    : CARDINAL ;
  45.                           rastPort{R.A1}  : gd.RastPortPtr ;
  46.                           destX{R.D3},
  47.                           destY{R.D4},
  48.                           destW{R.D5},
  49.                           destH{R.D6}     : CARDINAL ;
  50.                           srcFormat{R.D7} : BYTE) : LONGINT ; CODE -90 ;
  51.  
  52. PROCEDURE GetCyberMapAttr(cyberGfxBitmap{R.A0} : gd.BitMapPtr ;
  53.                           cyberAttrTag{R.D0}   : LONGCARD) : LONGCARD ; CODE -96 ;
  54.  
  55. PROCEDURE GetCyberIDAttr(cyberIDAttr{R.D0},
  56.                          cyberDisplayModeID{R.D1} : LONGCARD) : LONGCARD ; CODE -102 ;
  57.  
  58. PROCEDURE ReadRGBPixel(rastPort{R.A0} : gd.RastPortPtr ;
  59.                        x{R.D0},
  60.                        y{R.D1}        : CARDINAL) : LONGCARD ; CODE -108 ;
  61.  
  62. PROCEDURE WriteRGBPixel(rastPort{R.A1} : gd.RastPortPtr ;
  63.                         x{R.D0},
  64.                         y{R.D1}        : CARDINAL ;
  65.                         argb{R.D2}     : LONGCARD) : LONGINT ; CODE -114 ;
  66.  
  67. PROCEDURE ReadPixelArray(destRect{R.A0}   : ADDRESS ;
  68.                          destX{R.D0},
  69.                          destY{R.D1},
  70.                          destMod{R.D2}    : CARDINAL ;
  71.                          rastPort{R.A1}   : gd.RastPortPtr ;
  72.                          srcX{R.D3},
  73.                          srcY{R.D4},
  74.                          sizeX{R.D5},
  75.                          sizeY{R.D6}      : CARDINAL ;
  76.                          destFormat{R.D7} : BYTE) : LONGCARD ; CODE -120 ;
  77.  
  78. PROCEDURE WritePixelArray(srcRect{R.A0}   : ADDRESS ;
  79.                           srcX{R.D0},
  80.                           srcY{R.D1},
  81.                           srcMod{R.D2}    : CARDINAL ;
  82.                           rastPort{R.A1}  : gd.RastPortPtr ;
  83.                           destX{R.D3},
  84.                           destY{R.D4},
  85.                           sizeX{R.D5},
  86.                           sizeY{R.D6}     : CARDINAL ;
  87.                           srcFormat{R.D7} : BYTE) : LONGCARD ; CODE -126 ;
  88.  
  89. PROCEDURE MovePixelArray(srcX{R.D0},
  90.                          srcY{R.D1}     : CARDINAL ;
  91.                          rastPort{R.A1} : gd.RastPortPtr ;
  92.                          destX{R.D2},
  93.                          destY{R.D3},
  94.                          sizeX{R.D4},
  95.                          sizeY{R.D5}    : CARDINAL) : LONGCARD ; CODE -132 ;
  96.  
  97. PROCEDURE InvertPixelArray(rastPort{R.A1} : gd.RastPortPtr ;
  98.                            destX{R.D0},
  99.                            destY{R.D1},
  100.                            sizeX{R.D2},
  101.                            sizeY{R.D3}    : CARDINAL) : LONGCARD ; CODE -144 ;
  102.  
  103. PROCEDURE FillPixelArray(rastPort{R.A1} : gd.RastPortPtr ;
  104.                          destX{R.D0},
  105.                          destY{R.D1},
  106.                          sizeX{R.D2},
  107.                          sizeY{R.D3}    : CARDINAL ;
  108.                          argb{R.D4}     : LONGCARD) : LONGCARD ; CODE -150 ;
  109.  
  110. PROCEDURE DoCDrawMethod(hook{R.A0}     : ud.HookPtr ;
  111.                         rastPort{R.A1} : gd.RastPortPtr ;
  112.                         tagList{R.A2}  : ud.TagItemPtr) ; CODE -156 ;
  113.  
  114. PROCEDURE CVideoCtrl(viewPort{R.A0} : gd.ViewPortPtr ;
  115.                      tagList{R.A1}  : ud.TagItemPtr) ; CODE -162 ;
  116.  
  117. (* --- functions in V40 or higher (Release 40.60) --- *)
  118.  
  119. PROCEDURE LockBitMap(bitMap{R.A0}  : gd.BitMapPtr ;
  120.                      tagList{R.A1} : ud.TagItemPtr) : ADDRESS ; CODE -168 ;
  121.  
  122. PROCEDURE UnLockBitMap(handle{R.A0} : ADDRESS) ; CODE -174 ;
  123.  
  124. END CyberGraphXL .
  125.